home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmsb.dir / Internal_5_xGumSprite.ls < prev    next >
Encoding:
Text File  |  2001-09-12  |  1.2 KB  |  53 lines
  1. property nameList, trigged
  2.  
  3. on beginSprite me
  4.   trigged = 0
  5.   nameList = []
  6. end
  7.  
  8. on exitFrame me
  9.   if sprite(me.spriteNum).loc = sprite(me.spriteNum - 1).mLoc then
  10.     if sprite(me.spriteNum).playing = 0 then
  11.       if the mouseDown then
  12.         if soundBusy(2) = 0 then
  13.           if trigged = 0 then
  14.             trigged = 1
  15.             playS = 1
  16.             if nameList <> [] then
  17.               repeat with n = 1 to nameList.count
  18.                 if (sprite(me.spriteNum - 1).member.name & "s") = nameList[n] then
  19.                   playS = 0
  20.                   exit repeat
  21.                 end if
  22.               end repeat
  23.             end if
  24.             if playS = 1 then
  25.               sound(2).play(member(sprite(me.spriteNum - 1).member.name & "s", 1))
  26.               nameList[nameList.count + 1] = sprite(me.spriteNum - 1).member.name & "s"
  27.             end if
  28.           else
  29.             trigged = 0
  30.             sprite(me.spriteNum).play()
  31.             sound(1).play(member("pop", 1))
  32.             updateStage()
  33.             exit
  34.           end if
  35.         end if
  36.       else
  37.         sprite(me.spriteNum - 1).setBack()
  38.       end if
  39.     end if
  40.   end if
  41. end
  42.  
  43. on mouseDown me
  44. end
  45.  
  46. on mouseUp me
  47.   trigged = 0
  48. end
  49.  
  50. on mouseUpOutSide me
  51.   trigged = 0
  52. end
  53.